home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / Full Text Poetry.DIR / 00006_Script_buildPoetryButtons < prev    next >
Text File  |  1995-11-13  |  789b  |  18 lines
  1. on buildPoetryButtons
  2.   global gPoetryButtons
  3.   if voidP(gPoetryButtons) then
  4.     set gPoetryButtons to [:]
  5.     addProp gPoetryButtons, 2, pB(2,"PA1.PIC","PA1R.PIC","PA1P.PIC","nextPage")
  6.     addProp gPoetryButtons, 3, pB(3,"PA2.PIC","PA2R.PIC","PA2P.PIC","prevPage")
  7.     addProp gPoetryButtons, 4, pB(4,"PE.PIC","PER.PIC","PEP.PIC","hearPoem")
  8.     addProp gPoetryButtons, 5, pB(5,"PT.PIC","PTR.PIC","PTP.PIC","retrace")
  9.     addProp gPoetryButtons, 6, pB(6,"PC.PIC","PCR.PIC","PCP.PIC","contents")
  10.     addProp gPoetryButtons, 7, pB(7,"PL.PIC","PLR.PIC","PLP.PIC","prevPoem")
  11.     addProp gPoetryButtons, 8, pB(8,"PR.PIC","PRR.PIC","PRP.PIC","nextPoem")
  12.     sort gPoetryButtons
  13.   end if
  14. end buildPoetryButtons
  15.  
  16. on pB c,n,r,p,sc
  17.   return birth(script "bt",c, n,r,p,sc)
  18. end pB